home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 3032.ZIP / RLIB20.ZIP / RL_FILET.PRG < prev    next >
Text File  |  1989-02-18  |  536b  |  21 lines

  1. * Function: FILETIME
  2. * Author..: Richard Low
  3. * Syntax..: FILETIME( <expC> )
  4. * Returns.: Character time string of <filename> from directory entry.
  5.  
  6. FUNCTION FILETIME
  7. PARAMETERS p_fname
  8.  
  9. IF PCOUNT() = 1
  10.    *-- set up array to hold the file time from ADIR()
  11.    DECLARE f_ftime[1]
  12.  
  13.    *-- call ADIR to check filespec given and fill time array
  14.    IF ADIR( p_fname, '', '', '', f_ftime ) = 1
  15.       *-- return time string if all is well
  16.       RETURN f_ftime[1]
  17.    ENDIF
  18. ENDIF
  19. *-- otherwise, return a null string
  20. RETURN ''
  21.